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Here is the latestt The U.S. 089 Usergroup has 
folded, ye can again thank Tandy for dropping 
the CoCo and Hicroware for dropping 68tfS OSS. 
The brilliant Barketing decision by Tandy to 
discontinue the CoCo has certainly left a large 
nuiber of users, vorldvide, out in the cold. 
Their strategy was that CoCo users would 
"upgrade" to their Messy OOS sachines. Whilst 
their MS-OOS based sachines are no doubt of good 
quality, I as sure that very feu ex CoCo'ers 
rushed to buy a Tandy H3-D03 sachine. certainly 
not 039'er5 anyway. 

The deiise of the U.S. Usergroup leaves the 
European OSS Usergroup and our own National 089 
Usergroup as the only active 039 groups that ve 
are aware of. Froa sessages on the CoCo 
Listserver in the States, it seems that there is 
at least interest in the Australian Usergroup. 
So ve aay get sone new Kieiiibers froft the U.S.A. 
Despite the lack of support fron both Tandy and 
Microwarej we believe that there are still a 
couple of years' life in the CoCo and 039 Level 
1, The obvious problea will be the availability 
of the CoCo 039 operating systea and other 
software utilities and applications. Until now, 
applications specifically for CoCo 039 have 
continued to grow through third party 
developers, but this will slow to a stop as tisie 
goes on. 

1 do apologize to those "Natgroup" tteiabers 
running OSK, for our continued concentration on 
Tandy's CoCo^ but it is a fact that CoCo users 
are at the aosent in the aajority. 
So where do ve go froi here? Firstly, to the 
new subscribers and those just beginning the 039 
experience, don't give up! because we are not 
going to. Ue do have soae new ie&bers who are 
just beginning to tackle 039, and we encourage 
you to continue. The knowledge gained will 
serve you well in the future, whatever that bay 
be. 

HS-003 is not the alternative for any 039'er. 
OSK is the obvious way to go! The question is, 
what platforn do ve use, and what will be the 
cost? 

Ue have a few aeabers running QSK on ATARI 
iachines, which nay be an alternative, but Atari 



have not done ftuch with hardware upgrades 

lately, and the OSK operating systea for it is 

expensive. I believe that there is a "windows" 

environaent also available if you have plenty of 

aoney. Perhaps soieone out there could set me 
straight on this if I have it wrong. 

There is also an OSK port for the AH16A but for 
Bost hobbyists the price of this is just out of 
the question. 

It seesed to us that the nuch talked about hH/l 
would be the way to go, but it is starting to 
look like just a lot of talk still. Just try to 
buy one and see how you go. Fron the specs ve 
have seen the HH/l, complete with the OSK 
operating systeia, looks a good package, at good 
value. It offers Hultiaedia computing, high 
resolution graphics, stereo sound, plus the 
multi-tasking and vindow environment with which 
we are faailiar. If "Interactive Media Systeas" 
are going to get tnis eachine off the ground, 
they certainly need to iaprove their product 
availability and distribution. 
What about 0S/9dee?? The price of P. C.'s has 
fallen in recent tiaes, so auch so, that a 8^386 
SX Machine is nov affordable, especially if you 
shop around. Add to the hardware price about 
Jieeeee (I believe) for the 0S/9e«e operating 
systeift and you can be up and running in a 
faailiar 0S9 environaent. So this option aay 
well be worth soae consideration. What do you 
think?? 

yell, for the tiae being at least, I have just 
convinced ayself that ay CoCo3*s vith 039 Level 
2 are in for a vorkout for a while yet. 
0S9 Level 2 At a nevsletter aeeting last week, 
we vere conteaplating the running of stock 
standard 039 level 2, as it was distributed by 
Tandy, and the thought vas rather alaraing. The 
Level 2 systea ve are nov running has so aany 
"patched" systea aodules that it hardly 
represents the original. So in the near future 
we will document all those patches which have 
improved the perforaance in both speed and 
reliability. 

Until next tiae; Cheers. Gordon. 
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A Basutfy Tutorial 
by Bob Devries 



Another probles area for prograasers 
recently converted to BasicwS is the TYPE 
statesent. This is used when a programaer needs 
to luftp together several variables to be 
referred to as one unit. Let te give you an 
exaaple. Say I want to write a little database 
prograiBffie (as ey earlier version in C) to keep 
naftes, addresses , and phone nusbers. Here's what 
the start of the prograsee «ouid look like: 

PROCEDURE Prograi 

TYPE record=surnaBe:STRINS[2e]; 

firstnaBe:STRIN6[2e]; street'.STRINti [2^]; 

city:STRIN6[2ej; state:STRING[53; 

postcode; INTEGER; 2rea:STR!N6 [33; 

phone :STRINS[73 

DIH address: record 

So here I have the sase database record as I 
have used previously (a series of articles 
starting March !9Sy). A database entry is a 
cospiex variable called address of TYPE record. 
That is, the variable record has in it ail the 
variables referred to in record. So to refer to 
the city field in the database entry , I would 
call it address. city, easy see ? 



inH T 



If the disk file eas 2& entries long, a 
wanted to get the fifteenth one, I would first 
seek to the fourteenth (all records start at the 
zeroeth) record like this: 



SEEK tfileJ4 t SIZECaddress) 

Then I would read the entry as before. 

Here is a satpie piece of prograBiBie wnich 
sets up the database record in ae»ory using 
TYPE, and fills it, and then displays it in an 
overlay window. One thing you should be aware 
of, you HliST initialise variables in Basictfy. 
because all variables are filled with garbage 
after beinc Ciaensioned. 



PROCEDURE Prograa 

TYPE record=surnatte;STRINS[2e]; 

firstnase:STRIN6[2e]; street:STRING [2^]; 

city:STRIN6[2e]; 5tate:STRINGi3]; 

postcode: INTEGER; area:STRIK6 iSJ; 

phone ;STkIN8[7] 

DIM address:record 

m file:INTE6ER 

OIH a;STRING[]] 



If i want to fill each of the variables of 
the coaplex variable address^ ! could do this: 

address, surnaese = "DEVRIES' 
address. firstnaee = 'BOB' 
address. street = "21 Virgo Street" 
address. city = MNALA' 
address. state = "fild" 
address, postcode = Wl 
address. area = '«7' 
address. phone = ''57273]£' 

If I want to write a database entry to a 
disk file, I would serely do this; 

PUT #file, address 

This will put all the variables which take 
up the coftplex variable address into the 
diskfile one after the other. Gf course the 
disk file Rust have been opened first. 

SiKilariy, to read an e>dsting entry fros a 
diskfile. I would ijse this line: 



bh 



lOdress 



PRINT CHR*(12) 

address . surnaBe=°Bentzen'' 
address. firstna»e="Gordon" 
address. 5treet='8 Odin Street" 
address . c i ty=''Sunnybank'' 
address. states'Qld" 
address. po5tcode=4165 
address. area='e7'' 
address. phone="5i4333l° 

RUN gfx2r0ySet%!,9,4,32,!lJ,e} 
RUN gfx2("0ySet%e,ie,5,5e,5^ej) 

PRINT "Surnaiiie;"; 

PRINT address. surnaae 

PRINT "Firstnaae;"; 

PRINT address. firstnaee 

PRINT "Street:': 

PRINT address. street 

PRINT ''City:''; 

PRINT address. city 

PRINT "State;'; 

PRINT address. state 

PRII^T 'PostccGe:'; 

PRINT USING 'i5". address, Dostcooe 
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PRINT address. area 

PRINT "Pnone:-"; 

PRINT address. phone 

a=" 

yniLE a="" DO 

RUN inkeyia) 

ENDyHILE 

OPEN lfile/DATAeASE':uPDATE 
SEEK tfiie,e 
PUT tfile, address 
CLOSE if lie 

RUN gfx2(''0yEnd') 
RUN gfx2(*'0yEnd'=} 

I'll give you a run-dosri on vhat is in this 
prograisae. 

First, the TYPE coftsand, setting up th& 
iseftory isage of the database record. Next^ 
diaension the coiplex variable, as well as soffie 
other useful variables. Tnen I filled the 
various parts of the coaplex variable sith data 
for one record of the database with Gordon's 



nase, address etc. No doubt you'll understand 
notf that to access each part of the database 
record, its identifier is ' address. xxxxxxx' 
where the x's are the various sections of the 
record, e.g. city. 

Now to display the record, I open an overlay 
window big enough to display the fields of the 
record, and print thei. Notice the use of PRINT 
USING for the postcode field. For this, you aust 
use a foriat length of one eore than the length 
of the variable, hence, 'i5'. Next I vait for a 
keypress before closing the overlay, and writing 
the record, and quitting. In this exaaple, the 
record is always written to position zero of the 
file. 

Next eonth, Til show you how to convert 
prografiBes frois other BASIC languages, including 
RSBasic, SUBasic etc. ril include a working 
exaiple, in both the original foriat, and the 
converted Easic^y prograiae. 

Regards, 
Bob Devries 



ooooooooooOOOOQOOOOOoooooooooo 

C Tutorial 
Chapter 1 - Getting Started 



yHAT IS AN IDENTIFIER? 

Before you can do anything in any language, 
you Bust at least know how- you naae an 
identifier. An identifier is used for any 
variable, function, data definition, etc. In 
the prograiiing language C, an identifier is a 
cosbination of aiphanufieric characters, the 
first being a letter of the alphabet or an 
underline, and the regaining being any letter of 
the alphabet, any numeric digit, or the 
underline. Two rules sust be kept in Kind when 
nafcinc identifiers. 

1, The case of alphabetic characters is 
significant. losing "INDEr for a variable 
is not the sase as using 'index' and 
neither of thes. is the sase as using 
"InOer for b variable. All three refer to 
different variables. 

2. As C is defines, ud to eight significant 

characters can De used and ^ill be 
considered sianificant. If sore tiian siaht 
are usac. thev ^fav Dt ionored t\ th8 
cosDiler. This raev o^ sav mi ds t-ue ct 
voiir lo^"i1?" '■'■i- rnoiil-;: ""^c- vol-' 



reference sanual to find cut how aany 
characters are significant for your 
coKpiler. 

It should be pointed out that soae C 
coapilers allow use of a dollar sign in an 
identifier naae, but since it is not universal, 
it will not be used anywhere in this tutorial. 
Check your documentation to see if it is 
peririissible for your particular coapiler. 

yHAT ABOUT THE UNDERLINE? 

Even though the underline can De used as 
part of a variable naae, it seess to be used 
very little by experienced C prograaaers. it 
adds greatly to the readability of a prograa to 
use descriptive nases for variables and it would 
be to your advantage to do so. Pascal 
prograssers tend to use long descriptive nases. 
but (ftost C prograrftsers tend to use short cryptic 
narftes Host of the exaisole prograas in this 
tutorial use very short nases for that reason. 

Anv cofiiDuter proarats nas tv^o entities tc 
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highly dependent on one another and careful 
planning of both will lead to a well planned and 
well written progras. Unfortunately, it is not 
possible to study either co&pieteiy tfitnoui a 
good working knowledge of the other. For this 
reason, this tutorial will juip back and forth 
between teaching aethods of prograa writing and 
lethods of data definition. Siipiy follow along 
and you will have a good understanding of both. 
Keep in ftind that, even though it seess 
expedient to soeetiies juBip right into the 
program coding, tiie spent planning the data 
structures will be well spent and the final 
progratt will reflect the original planning. 



HOy THIS TUTORIAL IS yRITTEN 

As you go through the exaspie prograss. you 
will find that every prograe is cospiete. There 
are no prograe fragaents that could be 
confusing. This allows you to see every 
requireieent that is needed to use any of the 
features of C as they are presented. Soee 
tutorials ! have seen give very few, and very 
coEpiex exaaples. They really serve isors to 
confuse the student. This tutorial is the 
coEpiete opposite because it strives to cover 
each new aspect of prograseing in as siaple a 
context as possible. This aethod, however, 
leads to a lack of knowledge in how the various 
parts are coKbined. For that reason, the last 
chapter is devoted entirely to using the 
features taught in the earlier chapters. It 
will illustrate hotf to put the various features 
together to create a usable prograe. They are 
given for your study, and are not cospletely 
explained. Enough details of their operation 
are given to allow you to understand how they 
work after you have coapleted all of the 
previous lessons. 

A DISCUSSION OF SOHE DP THE FILES 
CCL.BAT 

[EO; this part refers to files on the original 
HSDos distribution, and can only be used on 
coaputers which run MSDos. These files are, 
however, included in the c_tutor.ar file on PO 
disk nuEber IH 

This file, which does not exist on the 
distribution disk, is the oaten file that calls 
in an editor, then the cospiier (Pass i and Pass 
2, if it exists), and finallv runs the resulting 



coapiled prograa. There are several exaaples of 
batch files which can be usee with various 
coapilers given in the 'COflPlLER.DQC tile on 
the distribution diskette. It is up to you to 
type in a batch file for use with your 
particular coapiler, considering also the aethod 
required to call in your editor. To use it, 
siaply type the batchfile naae with the desired 
filenaae. After typing in your particular 
CCL.BAT file, try it by typing CCL FIRSTEX. Vou 
will get the source file displayed on the 
Bonitor by your editor. If you don't have one 
of the coapilers listed in the "COMPILER. DOC 
file, you will have to aodify the batch file for 
your particular cospiier. 

The pass or passes of the cospiier will be 
executed, followed by the linking process. The 
final prograffi will be loaded and run, then the 
files generated by the process will be erased to 
prevent filling the disk up. 
If you have a hard disk available, it will be up 
to you to Biodify the batch file to perfora the 
above described operations. Even though you 
will have a lot of files to cotpile and run, you 
will find that a batch file siailar to this will 
do aost of the work for you and you will proceed 
very quickly. 

In order to do the prograaaing exercises, you 
will need to go through the saae steps as when 
running the example progra&s. This is siaple to 
do by siaply typing your own filenaae with the 
CCL prograa call. It is highly recoasended that 



you do the prcgraaainQ exercises 
prograaeiing experience. 

LIST. EXE 



to gain the 



This file will list the source files for you 
with line nuabers and filenaae. To use it, 
sisply type "LIST* followed by the appropriate 
fiienaKie. Type LIST FIRSTEx.C now for an 
exasple. The C source code is given later in 
Chapter U along with a brief description of its 
operation. 

PRINTALL.BAT 

This is a batch file that will call the 
above LIST. EXE file once for each of the exaapie 
C Drograas, printing all of the files out. If 
vou yant a hardcopy of all of the files, enter 
hRInTALL end watch as your or inter fills about 
Ib^' sneets of paper with C proqraffis. 
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ERRATA 



ERRATA 



ERRATA 



ERRATA 



ERRATA 



ERRATA 



fin error exists in the listing for the prograsBe 'OIRL' in last Bonth'e newsletter. On page 9, the 
sixth last line of code, currently reads: 

case £_BYTES; dsizesdirsize+padding; break 

To sake this coapiie correctly, you Kust add a seai-colon (;) to the end of the line (after 
'break'). 



Sorry about that, we didn't catch that one in tise. EO. 
ERRATA ERRATA ERRATA ERRATA 



ERRATA 



ERRATA 



Probleis with OirLc 



A nuaber of our readers have had sose probieas 
with the utility dirl, that we offered in the 
last newsletter. The fcliowing inforaation will 
be of value to those of you who aay have been 
having trouble. 

1 . In the line: 

'case S_BYT£3: d5ize=dir5i2e+padding; 

brear 

on page S of the newsletter, there is a Kissing 

";' after the word break. 

2. The iseek call, also on page S ... is NOT 
l5eek(path,64V,e) 

it should be typed l5eek(path.b4L,6); 

/\ 
Note that this character is an alpha 'ell', 
either upper or lower case, to signify a long. 
See page 3-22 of the Hicroware C Coopiier sanual 
for details. 

3. If you happen tc coiapile this prograffiffie, and 
autoaaticaljy include the cgfx.l library in your 
linker list, you vill find that the progratae 
cospiles OK, but will not run. See below for 
details. 



but problems can arise siciply because of the 
logic witrdn the code. The function that is 
used for linking in these cases, is the first 
function of that naae found. For exaaple m 
Hike Sweet's CGFX7 library, he defines a 
function, readO. This function is also defined 
in the standard clib.i library, and as well, m 
the Kreider clib.i library. 

The trouble stess froe the fact that the 
functions return different values on reaching 
EOF. (The kreider library and the standard 
library readO functions return 8 on end of 
file, but the function froa the cgfx7 library 
returns -i). If you read the aanual, you'll 
find that, in their own way, they both are 
correct! If you tried to coapiie the dirl.c 
prograsffie that was printed in the last 
newsletter (and got past the typographical error 
aentioned above!), and included cgfx.l (fiike 
Sweet's version), in the link list, the 
prograsKie would coapiie QK, but it will not run 
correctly. 

The solution is to siffipiy exclude the cgfx.l 
library then perfcraing the final link step, and 
aii vill be well. 



Tne problems arises because a function is 
defined in acre than one library. t'hen this 
happens, the linker does not report an error, as 
there really is no error condition generated, 



Also note that you need to use the Kreider 
clib.i library^ rather than the standard clib.i 
library, as soae of if\B functions called do not 
exist m the standard clib.i. 
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Clusters 

by Brian White 

[ ED: The following article was posted to tHe INTERNET CoCo 0S5 discussion list by Brian t/hifce in the 
USA. Ue think that readers who do not have access 'to that list aay find it an interesting article^ 
particularly those with hard drives. The article is of a fairly technical nature, and if you have any 
problefis in understanding that is being talked about, then aaybe it would be best ii you did not 
attempt to iKsake any of the changes about which he writes. <6rin>. 

we would like to take this opportunity to thank Brian for the use of this article.] 

Clusters 



Well, I did soae poking around into 'clusters", 
what they eaean, and how to use thes, so I 
decided to post it here for you and anyone else 
who is interested. 

First, a sector is always a sector, and an LSN 
(Logical Sector Nuaber) is always an LSN. These 
two tens should never be confused with the word 
"clusterV The RBF sanager that coies with OS-S 
can access up to 2'24 or 16,777,216 unique 256- 
byte sectors for a grand total of 2'32 or 
4,294,967,29b bytes (4 GigaSytes). . . before 
needing to undergo partitioning ;-) Therefore, 
LSN-fi is always 256 bytes, a file-descriptor is 
always 256 bytes, etc., etc. Anywhere these 
teras are used in the OS-9 aanuals, they are 
used correctly. 

A "cluster" is a lot like the ainiiua sector 
allocation size except that it is the saae for 
all types of files and it can't be changed on 
the fly. If the cluster size is set to 32, 
every file will allocate a aultiple of 32 
sectors (the first segaent is actually 31 
sectors plus 1 file-descriptor sector) and 
reaain there until it needs another cluster. 

As far as how cluster size and sector allocation 
size (SAS) work together, the initial file size 
is always 1 cluster. On disks with 1-sector 
dusters, this is used exclusively by the file- 
descriptor. After that, as soon as data is 
written past the end of a segasent, acre space is 
allocated to the file in chunks of SAS rounded 
up to the next cluster size. (eg. if cluster 
size=$«8 and SAS=$23, additional space is 
allocated in chunks of *28 sectors). When the 
file is closed, it is shrunk to the least used 
nufiber of clusters. 

Changing the cluster size is not as easy as you 
ftight think. There is nothing about it in any 
of ay device descriptors and 'foraat' has no 
option to that effect. To change it aanually, 



you aust: 

- FORMAT the disk noraally 

- dEd/QTip the disk: 

- edit LSN-e: 

- change the cluster size 
(bytes %%-W) 



to any power of 2 



*i, 



divide the nusber of bytes in the allocation 
bittap (bytes $^4-$05) by the saae power of 2 
used above and round down to the next nearest 
byte. 

edit root directory file-desciptor; (LSN of 
root fd is in LSN-e) 

change the size of the first and only segaent 
so the directory ends at the end of a 
cluster. For exaaple, ay hard disk has its 
root directory file-descriptor on sector *50 
and the root directory itself starts on 
sector $51. If I wanted a cluster size of 32 
($20), the start of the next cluster would be 
$60, so I change the size of the root 
directory's segaent, originally set to $07 by 
'foraat', to $eF ($6e-$5l=$eF). If a cluster 
is not is not coapletely allocated within the 
file structure, dCheck assuses that none of 
it is allocated. 0S-9/RBF will take care of 
all this allocation for you once the required 
aanual setup is finished. 

perfora a dCheck on the disk 

use a utility like BD/BA froa the Repack 

software package to deallocate any clusters 
that dCheck aentions (or fool around with the 

first few bytes of LSN-1 fay hand using 

dEd/QTip until dCheck reports a clean disk). 

DCheck always reports clusters by the LSN 

they start on. BA and BD handle these LSN's 
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properly to fiddle 
the allocation »ap. 



with the correct bits in 



- Vou now have a disk with whatever cluster 
size you put in bytes $06-$67. 

(This is really easier than it sounds... 
honest!) 

yhile playing around with this, I discovered 
that 'dCheck' seeas to have a small bug in it 
that causes it not to check the last byte of the 
allocation bitaapi So if you start playing 
around with more than is said above and find 
that dCheck is not bothering to sention the iidO 
allocated sectors at the end of the disk that 
should be free, it's dCheck's fault, not yours. 
RBF seeis to handle everything just fine. 
'Free' has a sisilar bug which causes it to 
analyze the entire last byte even if soie oi 
it's bits aren't used. Rounding down LSNO's 
bytes *0i-*65 will cause up to 7 clusters never 
to be used, but will work around both of these 
bugs. 

! have acved files to ay disk after setting it 
to various cluster sizes and have had nc 
probless with 0S-9/RBF in any way. This 



wonderful feature seeffis to be fully i»ple«erited 
except for turning it on. 

ftnycne who edits over fflultiple windows, saving 
froft all of theffi often, knows that the files 
fraq«ent into many ]-sector segments quite 
quickly. This cluster size can help solve that 
problem because a l-sector file in a 32-sector 
cluster still has lots of space to expand into 
before another segment is needed. 

yith the upcosing wide-spread use of 05-9/6800^ 
(or OS-k), RBF has an added feature of being 
able to handle devices with sector sizes of 
larger than 25b bytes. How this will be 
handled, I don't know. I would guess, since the 
OS-k file structure is identical to that of OS- 
9, that it just internally splits each sector up 
into 256-byte chunks and then sets the cluster 
size accordingly to avoid file fragsentation 
within a sector, (eg a 512-fayte sector would 
get a tin cluster size of 2 while a 20i8-byte 
sector would get a »in cluster size of 8^ etc.). 

Hope all this is of use to soseone... 

Brian Uhite. 



ooocooooooOOOOOOOOOOoooooooooo 

HodPatch Probleis 
Taken from the SitNet message systea. 

Q: Now that I can use the SCII/4in!, I tried to run the aciapak patch included with KBCOM. It claims 
that none of the data satches when it goes to patch. I checked the crc value in the header of the 
patch against the ident of the aciapak eodule and it seeas to be the correct one. As I aissing 
soaething. 

A; ! think I know what the problea is. aocipatch has a stall bug which may be biting you. Edit the 
eodpatch file and make sure that there is always at LEAST one character after each 'i'. ie, change 
the lines containing only "V so that they contain 'i " and see if that helps. 

As I reaesber, the aodpatch file contains a bunch of ccaeents, ending like: 



1 aciapak 
c 



But since there is no character following the 'J', the newline is getting swallowed and ' 
becomes part of the comaent! And you haven't linked to a module j so of course none of 
match. 6reg Law discovered this doozy. 

ooooooooooOOOOOOOOOOoooooooooo 



1 aciapak" 
the bytes 
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FREE - A bug-free version 

written by Hark Griffith et ai 

[ED: This source code saapie has cowe to us via the 6itNet aessage system, froa Mark Griff.ith. Because 
of its length, this part one. Don't aiss the next issue! ] 



In response to: 

Q: Free returned the saae thing... wasn't there a bug in one version of free that returned the value 
for large drives wrong? 

Tia K. says: 

A: The version of "free" distributed with soae of the SShell patches had such a bug. 

That version of Free did have a buglet with large drives. I only had a 26 «eg at the tifie to test it 
with. The bug was soon discovered and fixed. The fixed version has been on CIS for a few years so it 
should be Baking the BBS rounds by now (grin), I've included it here for those who don't have it. 



1 

t ft new FREE cofisand for use with Hulti-Vue 

i 

i 6ives the nutaber of bytes free instead of 

i sectors -- works just like the original FREE 

i coaaand. 

i Syntax: Free [dev] 

J 

t or clicking on the FREE selection after popping 

i do^n the DISK senu frofi Multi-Vue will give 

i the free space reaaining on the device currently 

t being used. 

i 

t This utility has been updated to insure an accurate count 

t of the reeainmg disk space on devices that can store up 

t to 4.3 GIbAbytes — so it should work on any hard disk. 

t 

% This source is for asseabling with ASH and not RHA. 

i Much of this code was takers fro» the PO prograi LSH 

t available elsewhere in this Forue. 

i 

t Mark Griffith [76670.41] 

t 

i Additional help froa Kent Meyers (thanks Kent!) 

i Minor hacks ftade by Bruce Isted 

i Second ainor hack for Total Sectors by Don Berrie 9i6S3» 

nan FRee 

ttl New FREE coiaand for Multi-Vue 

ifpl 

use /dd/DEFS/os9defs 

endc 

tiiii REVISION and EDITION tiiit 
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edition set 3 

rev set reent+edition 

type set prgra+objct 

Ut The MODULE header aacro iti 

Fftod end»od,ndBejtype,rev,5tart,endatd 
ntttiti Data Area UUttti 

org » 



descpt 


rab 


25b 


storage for path descpt 


tespl 


rab 


2 


Scratch aeaory 


tefip2 


rsb 


2 


Scratch seaory 


overflow 


rsb 


2 


Scratch aesory 


inpath 


rib 


I 


Input path nuaber 


devnaa 


rab 


b 


Device naae 


total 


rffib 


4 


Nbr sectors on disk 


nfree 


rftb 


i 


Nbr of free sectors 


voinaffie 


FBtb 


52 


Disk voluse naae 




rsb 


2ee 


Einiftuft slack recoeaended 


endatd 


eau 







naae fcs /FRee/ 
tcb edition 
pag 

mttniinntuniitittittnunintttintniunini 
i i 

t HAIN PRQGRAH CODE i 

i i 

tittniimtitniutiinnmtimmtiituiiunntii 



Stan 



ecu 



exit 



ieay devnaftjU 

Ida ,x+ 

capa Ited 

beq open 

capa 17 

beq copy 

osS f*exit 



Get the first character 
Is it a carriage return? 
Yes, then go open the disk 
Is it a slash? 
Then copy the device naae 

Finish and exit 



copy 



copy 



r,v\ 



sta ,y+ 

Ida , x+ 

capa 17 

beq open 

capa Itdd 

beq open 

capa l$2e 

beq open 

sta ,y+ 

bra copy] 



Store the character already gotten 
Get the next one 
Is it another slash? 

Is it a carriage return 

or a space? 

If none of the above, store it 
Go qet soee sore 



ooen 



Idd mm Get a "^CR" 
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5ld ,y Append it to devnatde 

Ida II Open for read only 

leax devnaiTi^u Point to the na»e 

osS i*open Open the disk as a file 

bc5 exit Exit if an error on open 

sta inpdth,u Store the path nuftber 

t Read in the voluae nase and path descriptor t 

getvol Idx U Get ready to seek to LSNO 

pshs u save U 

tfr x,u 

os9 iJseek Set file pointer to ISm 

puis u Restore U 

bc5 exit Exit if an error occured 

leax descpt^u Point to the descp. buffer 

Idy #25b 

osS i*read Hqv read in the descriptor 

bcs exit Exit if an error occured 

t Save total size h voluse naae i 

pshs X 

leax tf,x Point to total sectors 

ieay total, u 

Idb 15 Set counter 

Ida l» Duasy value 'cause i bytes 

sta ,y+ 

sytotiy Ida ,x+ Save char 

sta ,y+ in buffer 

decb 

bne svtoti^ More if not done 

puis X Reset pointer 

pshs X 

leax *lf,x Point to voluse naie buffer 

Ieay volnaffiejU 

Idb #32 Set the counter 

svnafil^ Ida ,x+ Now save a character 

sta ,y+ in the buffer 

decb 

bne svna«]y Get soie sore if not done 

puis x 

% Read free sector bit sap free sector i i 

vol]] Idd $64, X Set nbr of bytes in aap 

std tesp! jU Store it 

Idd $66, X Get sectors per cluster 

std tesp2,u and store that too 

cir ,-s 

leax descpt^u Read in first part of bit aap 

Idy #256 

Ida inpathjU 

cs9 i$read 

Ibcs exit Exit if an error occured 

i Add up all the 6's in the bit aap i 
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Idd le 

t BRI: »inor fix, as in Level 2 U=» always 

5td overflow, u Set overflow to. zero 

t std overflow 5et overflow to zero 



V0125 


Idy 


#8 


Nbr of bits 


vor3e 


Isr 


/^ 






bcs 


vol35 


check bit 




addd 


11 


add one 




bne 


vor3S 






inc 


overtlov+l 


,u 


vol 35 


leay 


-^y 


bit counter 




bne 


vol3tf 






leax 


l,x 


Bap pointer 




Idy 


teipl,u 






beq 


V0137 






dec 


,5 






bne 


vol3b 






pshs 


d.y 






ida 


inpath.u 






leax 


descpt,u 






Idy 


#256 






059 


i$read 






lbC5 


exit 






puis 


d.y 




vol3b 


ieay 


-i,y 


byte counter 




sty 


tespl ,u 






bne 


vol25* 






Idy 


overflow, u 





* BRI: Y is not always 6 

i tiaes sectors per cluster = 24 bits 

I (y=e) 

t 

t BRI: fixed set up for free sectors calculation, added DO. BIT check 

voI37 pshs d save free clusters L5Be for free sectors calculation 

Idx teBp2,u DD.BIT sectors per cluster 

beq voU5 0D.BIT=6 illegal, go report as one sector clusters 

tvcl37 Idx teep2,u DD.BIT sectors per cluster 

ooooocooocOQOOQQQGOOooooGooooo 



FOR SALE 

DISTO 512k UPGRADE 
Used only on Sundays by a little old lady. (Has had little use) 

ONLY 175. »e 
Contact;- Rob Hackay 67 8^738^2 (evenings). 
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